home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1998 February / Amiga-CD 1998 #2.iso / pd-disketten / dms-gepackt / 3_96 / apd-3-96-2.dms / apd-3-96-2.adf / Amiga-E-Kurs / listing_3.e < prev    next >
Text File  |  1996-01-30  |  475b  |  18 lines
  1. OBJECT adresse
  2.   name:PTR TO CHAR
  3.   plz, ort:PTR TO CHAR
  4. ENDOBJECT
  5.  
  6. DEF kunde=NIL:PTR TO adresse
  7.  
  8. PROC main()
  9.   kunde:=New(SIZEOF adresse) /* Speicher belegen */
  10.   IF kunde<>NIL      /* war noch Speicher frei ? */
  11.     kunde.plz:=42421   /* ganz normale Zuweisung */
  12.     /* ...       hier stehen weitere Anweisungen */
  13.     Dispose(kunde)  /* Speicher wieder freigeben */
  14.   ELSE                 /* Fehlermeldung ausgeben */
  15.     WriteF('Speicherplatzmangel!\n')
  16.   ENDIF
  17. ENDPROC
  18.